home *** CD-ROM | disk | FTP | other *** search
/ .net (French) 1996 November / .net Magazine (FR) - Issue 01 - Nov 1996.iso / mac / Edition Web / TableTool ƒ / HTML TableTool / stack_-1.xml < prev   
Extensible Markup Language  |  1995-08-19  |  4KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2838</cardID>
  8.     <listID>4087</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackglobal kWordsglobal filNamnput empty into filNamnput empty into cd fld Filenput empty into cd fld Tableget the screenRectIF (item 4 of it - item 2 of it) Γëñ 342 THEN hide menuBarIF the hilite of cd btn "Non-ASCII" THEN taggem ELSE put empty into kWordsend openStackon closeStackshow menuBarend closeStackfunction fullPathToFileName fullPathNameput the itemDelimiter into savedDelimiterset itemDelimiter to ":"put last item of fullPathName into fileNameset itemDelimiter to savedDelimiterreturn fileNameend fullPathToFileNamefunction noTxt fullNameget offset(".txt", fullName)IF it Γëá 0THEN delete char it to it + 3 of fullNamereturn fullNameend noTxtfunction tagged stringglobal kWordsIF string is empty THENreturn stringexit taggedEND IFset itemDelimiter to commarepeat with c = 1 to the number of chars in stringget charToNum(char c of string)IF it > 126 THEN put item (it - 126) of kWords after tStringELSE put char c of string after tStringend repeatset itemDelimiter to tabreturn tStringend taggedfunction linked stringglobal kWordsIF string is empty THENreturn stringexit linkedEND IFIF ".gif" is in string OR ".jpg" is in string OR ".jpeg" is in stringTHEN return "<IMG SRC=" & quote & string & quote & ">"ELSE return stringend linked-- Kudos to Niklas Frykholm & HTML Pro for the codes!on taggemglobal kWordsput "&#127;,&Auml;,&Aring;,&Ccedil;,&Eacute;,&Ntilde;,&Ouml;," ┬¼& "&Uuml;,&aacute;,&agrave;,&acirc;,&auml;,&atilde;,&aring;," ┬¼& "&ccedil;,&eacute;,&egrave;,&ecirc;,&euml;,&iacute;,&igrave;," ┬¼& "&icirc;,&iuml;,&ntilde;,&oacute;,&ograve;,&ocirc;,&ouml;," ┬¼& "&otilde;,&uacute;,&ugrave;,&ucirc;,&uuml;,&#221;,&#176;,&#162;," ┬¼& "&pound;,&#167;,&#128;,&#182;,&szlig;,&#174;,&copy;,&#129;," ┬¼& "&#180;,&#168;,&#130;,&AElig;,&Oslash;,&#131;,&#177;,&#190;," ┬¼& "&#132;,&#165;,&#181;,&#143;,&#133;,&#189;,&#188;,&#134;,&#170;," ┬¼& "&#186;,&#135;,&aelig;,&oslash;,&#191;,&#161;,&#172;,&#136;," ┬¼& "&#159;,&#137;,&#144;,&#171;,&#187;,&#138;,&nbsp;,&Agrave;," ┬¼& "&Atilde;,&Otilde;,&#145;,&#166;,&#173;,&#139;,&#179;,&#178;," ┬¼& "&#140;,&#185;,&#247;,&#215;,&yuml;,┼╕,&#142;,&#164;,&#208;," ┬¼& "&#240;,&#222;,&#254;,&#253;,&#183;,&#146;,&#147;,&#148;,&Acirc;," ┬¼& "&Ecirc;,&Aacute;,&Euml;,&Egrave;,&Iacute;,&Icirc;,&Iuml;," ┬¼& "&Igrave;,&Oacute;,&Ocirc;,&#149;,&Ograve;,&Uacute;,&Ucirc;," ┬¼& "&Ugrave;,&#150;,&#151;,&#175;,&#152;,&#153;,&#154;,&#184;," ┬¼& "&#155;,&#156;,&#157;" into kWordsend taggem</script>
  17.     <background id="2710" file="background_2710.xml" name="" />
  18.     <card id="2838" file="card_2838.xml" marked="false" name="" owner="2710" />
  19. </stack>
  20.